#!/usr/bin/perl
# even2.pl 
use warnings;
use strict;

# print out even numbers with a do...while loop
my $n = 0;
DO_LOOP: { do { {
   next if ($n % 2);
   print $n, "\n";
   #...do other stuff
   last DO_LOOP if $n == 10;
} } while (++$n) }